#!/usr/bin/perl
print "Hello world !\n";
print "Hello world !\n";
print "Hello world !\n";

$myvar = "outside\n";
sub a {
	$myvar = "change by a\n";
}

a();
print $myvar;

$myvar = "outside\n";
sub b {
	my $myvar = "change by b\n";
	print "in b: $myvar\n";
}
b();
print $myvar, "\n";

exit(0);